Aminet 31/Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso/Aminet/comm/www/metalweb.lha/MetalWEB 3.0/Instalar_MetalWEB

Text File | 1999-04-17 | 5KB | 243 lines

; MetalWEB install-script
;
; $VER: MetalWEB Install 3.0 (13.04.99)
; by Pedro Luis Mieza (MultitasK)
; Spanish version by Tomás J. Cantó (from SOGA Amiga Group)
;

(set #MetalWEB-Version "3.0")

(if (< (/ (getversion) 65536) 37)
  (abort "Lo siento, pero MetalWEB necesita el OS v37 (2.04) o superior.")
)

(complete 0)

(welcome
  "MetalWEB v" #MetalWEB-Version "© by Multitaskers\n"
  "WYSIWYG html Editor"
)

(set #Prg-Dir "")

(while
  (or (= #Prg-Dir "") (not (exists #Prg-Dir (noreq))))
  (set #Prg-Dir
    (askdir
      (prompt "Elija un directorio para MetalWEB.\nSe creará un directorio con el nombre MetalWEB.")
      (help @askdir-help)
      (default @default-dest)
    )
  )
)

(set #Prg-Dir (tackon  #Prg-Dir "MetalWEB"))

(makedir #Prg-Dir
)

(complete 30)

(copyfiles
  (prompt "Copiando el ejecutable de MetalWEB ...\n")
  (help @copyfiles-help)
  (source ("MetalWEB 3.0"))
  (dest #Prg-Dir)
  (infos)
  (confirm)
)

(complete 50)

(set #images
  (askoptions
    (prompt "¿Qué tipo de imágenes (botones) desea instalar?\n(Puede verlos en \"docs/image_8colorsNew.ilbm\"\no en \"docs/image_8nolorsOld.ilbm\")")
    (help @askchoices-help)
    (choices "Imágenes nuevas (Estilo NewIcon)" "Imágenes antiguas (Estilo MagicWb)")
    (default 1)
  )
)

(if
  (in #images 0)
  (copyfiles
  (prompt "Copiando las imágenes de MetalWEB ...\n")
  (help @copyfiles-help)
  (source ("images"))
  (dest (tackon #Prg-Dir "images"))
  (all)
  (confirm)
  )
)

(if
  (in #images 1)
(copyfiles
  (prompt "Copiando las imágenes antiguas de MetalWEB ... ...\n")
  (help @copyfiles-help)
  (source ("old_images"))
  (dest (tackon #Prg-Dir "images"))
  (all)
  (confirm)
  )
)

(copyfiles
  (prompt "Copiando MetalWEB rexx...\n")
  (help @copyfiles-help)
  (source ("rexx"))
  (dest (tackon #Prg-Dir "rexx"))
  (all)
  (confirm)
)

(complete 60)

(set #catalog
  (askoptions
    (prompt "Elija los lenguajes a instalar")
    (help @askchoices-help)
    (choices "English (built in)" "Català" "Español" "Français" "Deutsch" "Italiano")
    (default 4)
  )
)

(if (= @user-level 2)
   (set #catalogdest
     (askdir
        (prompt "Elija el directorio para los catálogos de idioma")
        (help @askdir-help)
        (default "Locale:Catalogs")
     )
   )
   (set #catalogdest "Locale:Catalogs")
)

(if
  (in #catalog 1)
  (copyfiles
    (source "catalogs/català")
    (dest (tackon #catalogdest "català"))
    (all)
  )
)

(if
  (in #catalog 2)
  (copyfiles
    (source "catalogs/español")
    (dest (tackon #catalogdest "español"))
    (all)
  )
)

(if
  (in #catalog 3)
  (copyfiles
    (source "catalogs/français")
    (dest (tackon #catalogdest "français"))
    (all)
  )
)


(if
  (in #catalog 4)
  (copyfiles
    (source "catalogs/deutsch")
    (dest (tackon #catalogdest "deutsch"))
    (all)
  )
)

(if
  (in #catalog 5)
  (copyfiles
    (source "catalogs/italiano")
    (dest (tackon #catalogdest "italiano"))
    (all)
  )
)

(complete 70)

(copyfiles
  (prompt "Copiando los 'TextField gadgets'...\n")
  (help @copyfiles-help)
  (source ("gadgets"))
  (dest "sys:classes/gadgets")
  (all)
  (confirm)
)

(copyfiles
  (prompt "Copiando InfoText.mcc...\n")
  (help @copyfiles-help)
  (source ("mui"))
  (dest "mui:libs/mui")
  (all)
  (confirm)
)

(complete 80)

(set #name
        (askbool
        (prompt "¿Quiere instalar las páginas de demostración de MetalWEB")
        (help @copyfiles-help)
        (default 0)
        )
)

(if
  (in #name 0)
    (copyfiles
    (prompt "Copiando las páginas de demostración de MetalWEB ...\n")
    (help @copyfiles-help)
    (source ("Demo_pages"))
    (dest (tackon #Prg-Dir "Demo_pages"))
    (infos)
    (all)
    (confirm)
  )
)

(complete 90)

(set #name
    (askbool
        (prompt "¿Quiere instalar la documentación (html) de MetalWEB")
        (help @copyfiles-help)
        (default 0)
    )
)

(if
  (in #name 0)
    (copyfiles
    (prompt "Copiando la documentación (html) de MetalWEB ...\n")
    (help @copyfiles-help)
    (source ("docs"))
    (dest (tackon #Prg-Dir "docs"))
    (infos)
    (all)
    (confirm)
  )
)

(complete 100)

(exit  "MetalWEB " #MetalWEB-Version " se ha instalado satisfactoriamente. \n"
 "¡ Este programa se distribuye como ShareWare !.\n"
 "\n"
 "Para obtener una copia registrada envíe, por favor,\n"
 "3000 ptas., 25 $, 40 DM o 20 Euros a:\n"
 "\n"
 "Pedro Luis Mieza Suarez \n"
 "Paseo Pedro III 45, 8, 3 \n"
 "08240 MANRESA (Barcelona) \n"
 "SPAIN \n"
 "\n"
 "Email: [e-mail] \n"
 "HTTP://www.earthcorp.com/multitask \n" (quiet))